﻿Public Class frmCadCliente
    Private iModoFormulario As eModo = eModo.eAguardando

    Public Property ModoFormulario As eModo
        Set(value As eModo)
            Me.iModoFormulario = value
        End Set
        Get
            Return Me.iModoFormulario
        End Get
    End Property

    Private Sub frmCadCliente_alteraModo(eModoAtual As DSFronteiraPadrao.frmPadrao.eModo) Handles Me.alteraModo
        If eModoAtual = eModo.eAguardando Then
            grpCodigo.Enabled = True
            grpDados.Enabled = False

        Else
            grpCodigo.Enabled = False
            grpDados.Enabled = True
        End If

    End Sub

    Private Sub frmCadCliente_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Me.modoAtual = Me.iModoFormulario

    End Sub

End Class